home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / mus / edit / OctaScripts.lha / scripts / MIDIpreset_Random.omed < prev    next >
Text File  |  1998-04-15  |  285b  |  13 lines
  1. /************************************************************
  2.  
  3.                    OctaMED ARexx Script
  4.  
  5.     Selects a random MIDI preset on current instrument
  6.  
  7. ************************************************************/
  8.  
  9. rnd = RANDOM(1,128,TIME(S))
  10. IN_SETMIDIPRESET PRESET rnd
  11.  
  12. EXIT
  13.